home *** CD-ROM | disk | FTP | other *** search
/ SunSoft Catalyst CDWARE 1996 May to August / Catalyst CDWARE 1996 May to August.iso / .products / .bin / httpd / Solaris_x86 / reqform.pl < prev    next >
Perl Script  |  1995-11-22  |  5KB  |  179 lines
  1. #!/tmp/httpd/.cgi-bin/perl
  2.  
  3. #################################################
  4. # Sends information request to appropriate place
  5. #################################################
  6. #RogueWave
  7.  
  8. unshift(@INC, "http://cgi-bin");
  9. require "cgi-lib";
  10. local(%cgi_params);
  11. &ReadParse(*cgi_params);
  12.  
  13. $fname = $cgi_params{"FNAME"};
  14. $lname = $cgi_params{"LNAME"};
  15. $title = $cgi_params{"TITLE"};
  16. $company = $cgi_params{"COMPANY"};
  17. $address1 = $cgi_params{"ADDRESS1"};
  18. $address2 = $cgi_params{"ADDRESS2"};
  19. $city = $cgi_params{"CITY"};
  20. $state = $cgi_params{"STATE"};
  21. $zipcode = $cgi_params{"ZIPCODE"};
  22. $telephone = $cgi_params{"TELEPHONE"};
  23. $fax = $cgi_params{"FAX"};
  24. $email = $cgi_params{"EMAIL"};
  25. $tools = $cgi_params{"TOOLS"};
  26. $heap = $cgi_params{"HEAP"};
  27. $booch = $cgi_params{"BOOCH"};
  28. $dbtools = $cgi_params{"DBTOOLS"};
  29. $math = $cgi_params{"MATH"};
  30. $money = $cgi_params{"MONEY"};
  31. $view = $cgi_params{"VIEW"};
  32. $canvas = $cgi_params{"CANVAS"};
  33. $chart = $cgi_params{"CHART"};
  34. $net = $cgi_params{"NET"};
  35. $support = $cgi_params{"SUPPORT"};
  36. $training = $cgi_params{"TRAINING"};
  37. $consulting = $cgi_params{"CONSULTING"};
  38. $windows = $cgi_params{"WINDOWS"};
  39. $windowsnt = $cgi_params{"WINDOWSNT"};
  40. $macintosh = $cgi_params{"MACINTOSH"};
  41. $unix = $cgi_params{"UNIX"};
  42. $whichunix = $cgi_params{"WHICHUNIX"};
  43. $msvisual = $cgi_params{"MSVISUAL"};
  44. $borland = $cgi_params{"BORLAND"};
  45. $othercompiler = $cgi_params{"OTHERCOMPILER"};
  46. $whichcompiler = $cgi_params{"WHICHCOMPILER"};
  47. $database = $cgi_params{"DATABASE"};
  48. $developers = $cgi_params{"DEVELOPERS"};
  49. $programmer = $cgi_params{"PROGRAMMER"};
  50. $teamleader = $cgi_params{"TEAMLEADER"};
  51. $devmanager = $cgi_params{"DEVMANAGER"};
  52. $othermanager = $cgi_params{"OTHERMANAGER"};
  53. $specifymanager = $cgi_params{"SPECIFYMANAGER"};
  54. $deveffort = $cgi_params{"DEVEFFORT"};
  55.  
  56.     &html_header("Information request confirmation");
  57.     print "<IMG SRC=\"banner.gif\">";
  58.     print "<p>Your request for information has been sent to ";
  59.     print "the appropriate person. We will respond to your ";
  60.     print "request as soon as possible.</p>";
  61.     print "<P>Use the <B>Back</B> function to return to the ";
  62.     print "request form and home page.</P>";
  63.     print "<h3>Thank you for your interest in Rogue Wave.</h3>";
  64.     &html_trailer;
  65.  
  66. #    &html_header("Information request feedback");
  67. #    print "<p>You entered the following personal information:";
  68. #    print "<pre>   Name:       ", $name, "\n";
  69. #    print "   Title:      ", $title, "\n";
  70. #    print "   Company:    ", $company, "\n";
  71. #    print "   Address:    ", $address1, "\n";
  72. #    print "               ", $address2, "\n";
  73. #    print "   Telephone:  ", $telephone, "\n";
  74. #    print "   Fax:        ", $fax, "\n";
  75. #    print "   Email:      ", $email, "</pre>";
  76. #    print "<p>You made the following information requests:</p>";
  77. #    print "<pre>   Tools.h++:              ", $tools, "\n";
  78. #    print "   Heap.h++:               ", $heap, "\n";
  79. #    print "   Booch Components:       ", $booch, "\n";
  80. #    print "   DBtools.h++:            ", $dbtools, "\n";
  81. #    print "   Math.h++/LAPACK.h++:    ", $math, "\n";
  82. #    print "   Money.h++:              ", $money, "\n";
  83. #    print "   View.h++:               ", $view, "\n";
  84. #    print "   Canvas.h++:             ", $canvas, "\n";
  85. #    print "   Chart.h++:              ", $chart, "\n";
  86. #    print "   Net.h++:                ", $net, "\n\n";
  87. #    print "   Support contracts:      ", $support, "\n";
  88. #    print "   Training information:   ", $training, "\n";
  89. #    print "   Consulting information: ", $consulting, "</pre>";
  90. #    print "<p>You expressed the following statement of needs:</p>";
  91. #    print "<p>", $needs, "</p>";
  92. #    print "<h3>Thank you for your interest in Rogue Wave.</h3>";
  93. #    print "<hr><pre><a href=\"http://cold:8001/~betz/www/index.htm\">Home page</a>   ";
  94. #    print "<a href=\"http://cold:8001/~betz/www/rwpav/products/products.htm\">Product information</a></pre>";
  95. #    &html_trailer;
  96.  
  97.  
  98. open(SENDMAIL, "|mail sales\@roguewave.com");
  99. print SENDMAIL <<"eom";
  100. Subject: Lead from Sun Catalyst CD
  101.  
  102. This message is from: 
  103.     $fname $lname
  104.     $title
  105.     $company
  106.     $address1
  107.     $address2
  108.     $city $state $zipcode
  109.     $telephone
  110.     $fax
  111.     $email
  112.  
  113. They have expressed interest in the following products and services:
  114.  
  115.     On products:
  116.         Tools.h++: $tools
  117.         Heap.h++: $heap
  118.         Booch Components: $booch
  119.         DBtools.h++: $dbtools
  120.         Math.h++/LAPACK.h++: $math
  121.         Money.h++: $money
  122.         View.h++: $view
  123.         Canvas.h++: $canvas
  124.         Chart.h++: $chart
  125.         Net.h++: $net
  126.  
  127.     On services:
  128.         Support: $support
  129.         Training: $training
  130.         Consulting: $consulting
  131.  
  132. They have provided the following project information:
  133.  
  134.     Platforms
  135.         Windows:  $windows
  136.         WindowsNT:  $windowsnt
  137.         Macintosh:  $macintosh
  138.         Unix --- version =  $whichunix
  139.  
  140.     Compilers
  141.         MS Visual C++:  $msvisual
  142.         Borland C++:  $borland
  143.         Other compiler:  $whichcompiler
  144.  
  145.     Databases:  $database
  146.  
  147.     Developers at site:  $developers
  148.  
  149.     Their position
  150.         Programmer:  $programmer
  151.         Team leader:  $teamleader
  152.         Development manager:  $devmanager
  153.         Other:  $specifymanager
  154.  
  155. Project Description:
  156.  
  157. $deveffort
  158. eom
  159. close SENDMAIL;
  160.  
  161. # Define the beginning of the HTML file.
  162.  
  163. sub html_header {
  164.     $document_title = $_[0];
  165.     print "Content-type: text/html\n\n";
  166.     print "<html><head>\n";
  167.     print "<title>$document_title</title>\n";
  168.     print "</head>\n";
  169.     print "<body>\n";
  170.     print "<h1>$document_title</h1>\n";
  171. }
  172.  
  173. # Define the end of the HTML file.
  174.  
  175. sub html_trailer {
  176.     print "</body>";
  177.     print "</html>";
  178. }
  179.